/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / mac-perl / mcprl402.bin / Perl_src / stab.h

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 73 74 61 62 2e 68 | 00 00 00 00 00 00 00 00 |..stab.h|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 12 e9 00 | 00 01 ac a6 eb 06 ef a6 |........|........|
|00000060| eb 06 ef 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 4e 2f 00 00 |........|....N/..|
|00000080| 2f 2a 20 24 52 43 53 66 | 69 6c 65 3a 20 73 74 61 |/* $RCSf|ile: sta|
|00000090| 62 2e 68 2c 76 20 24 24 | 52 65 76 69 73 69 6f 6e |b.h,v $$|Revision|
|000000a0| 3a 20 34 2e 30 2e 31 2e | 33 20 24 24 44 61 74 65 |: 4.0.1.|3 $$Date|
|000000b0| 3a 20 39 32 2f 30 36 2f | 30 38 20 31 35 3a 33 33 |: 92/06/|08 15:33|
|000000c0| 3a 34 34 20 24 0d 20 2a | 0d 20 2a 20 20 20 20 43 |:44 $. *|. *    C|
|000000d0| 6f 70 79 72 69 67 68 74 | 20 28 63 29 20 31 39 39 |opyright| (c) 199|
|000000e0| 31 2c 20 4c 61 72 72 79 | 20 57 61 6c 6c 0d 20 2a |1, Larry| Wall. *|
|000000f0| 0d 20 2a 20 20 20 20 59 | 6f 75 20 6d 61 79 20 64 |. *    Y|ou may d|
|00000100| 69 73 74 72 69 62 75 74 | 65 20 75 6e 64 65 72 20 |istribut|e under |
|00000110| 74 68 65 20 74 65 72 6d | 73 20 6f 66 20 65 69 74 |the term|s of eit|
|00000120| 68 65 72 20 74 68 65 20 | 47 4e 55 20 47 65 6e 65 |her the |GNU Gene|
|00000130| 72 61 6c 20 50 75 62 6c | 69 63 0d 20 2a 20 20 20 |ral Publ|ic. *   |
|00000140| 20 4c 69 63 65 6e 73 65 | 20 6f 72 20 74 68 65 20 | License| or the |
|00000150| 41 72 74 69 73 74 69 63 | 20 4c 69 63 65 6e 73 65 |Artistic| License|
|00000160| 2c 20 61 73 20 73 70 65 | 63 69 66 69 65 64 20 69 |, as spe|cified i|
|00000170| 6e 20 74 68 65 20 52 45 | 41 44 4d 45 20 66 69 6c |n the RE|ADME fil|
|00000180| 65 2e 0d 20 2a 0d 20 2a | 20 24 4c 6f 67 3a 09 73 |e.. *. *| $Log:.s|
|00000190| 74 61 62 2e 68 2c 76 20 | 24 0d 20 2a 20 52 65 76 |tab.h,v |$. * Rev|
|000001a0| 69 73 69 6f 6e 20 34 2e | 30 2e 31 2e 33 20 20 39 |ision 4.|0.1.3  9|
|000001b0| 32 2f 30 36 2f 30 38 20 | 20 31 35 3a 33 33 3a 34 |2/06/08 | 15:33:4|
|000001c0| 34 20 20 6c 77 61 6c 6c | 0d 20 2a 20 70 61 74 63 |4  lwall|. * patc|
|000001d0| 68 32 30 3a 20 66 69 78 | 65 64 20 63 6f 6e 66 75 |h20: fix|ed confu|
|000001e0| 73 69 6f 6e 20 62 65 74 | 77 65 65 6e 20 61 20 2a |sion bet|ween a *|
|000001f0| 76 61 72 27 73 20 72 65 | 61 6c 20 6e 61 6d 65 20 |var's re|al name |
|00000200| 61 6e 64 20 69 74 73 20 | 65 66 66 65 63 74 69 76 |and its |effectiv|
|00000210| 65 20 6e 61 6d 65 0d 20 | 2a 20 70 61 74 63 68 32 |e name. |* patch2|
|00000220| 30 3a 20 28 24 3c 2c 24 | 3e 29 20 3d 20 2e 2e 2e |0: ($<,$|>) = ...|
|00000230| 20 64 69 64 6e 27 74 20 | 77 6f 72 6b 20 6f 6e 20 | didn't |work on |
|00000240| 73 6f 6d 65 20 61 72 63 | 68 69 74 65 63 74 75 72 |some arc|hitectur|
|00000250| 65 73 0d 20 2a 20 0d 20 | 2a 20 52 65 76 69 73 69 |es. * . |* Revisi|
|00000260| 6f 6e 20 34 2e 30 2e 31 | 2e 32 20 20 39 31 2f 31 |on 4.0.1|.2  91/1|
|00000270| 31 2f 30 35 20 20 31 38 | 3a 33 36 3a 31 35 20 20 |1/05  18|:36:15  |
|00000280| 6c 77 61 6c 6c 0d 20 2a | 20 70 61 74 63 68 31 31 |lwall. *| patch11|
|00000290| 3a 20 6c 65 6e 67 74 68 | 28 24 78 29 20 77 61 73 |: length|($x) was|
|000002a0| 20 73 6f 6d 65 74 69 6d | 65 73 20 77 72 6f 6e 67 | sometim|es wrong|
|000002b0| 20 66 6f 72 20 6e 75 6d | 65 72 69 63 20 24 78 0d | for num|eric $x.|
|000002c0| 20 2a 20 0d 20 2a 20 52 | 65 76 69 73 69 6f 6e 20 | * . * R|evision |
|000002d0| 34 2e 30 2e 31 2e 31 20 | 20 39 31 2f 30 36 2f 30 |4.0.1.1 | 91/06/0|
|000002e0| 37 20 20 31 31 3a 35 36 | 3a 33 35 20 20 6c 77 61 |7  11:56|:35  lwa|
|000002f0| 6c 6c 0d 20 2a 20 70 61 | 74 63 68 34 3a 20 6e 65 |ll. * pa|tch4: ne|
|00000300| 77 20 63 6f 70 79 72 69 | 67 68 74 20 6e 6f 74 69 |w copyri|ght noti|
|00000310| 63 65 0d 20 2a 20 70 61 | 74 63 68 34 3a 20 6c 65 |ce. * pa|tch4: le|
|00000320| 6e 67 74 68 28 24 60 29 | 2c 20 6c 65 6e 67 74 68 |ngth($`)|, length|
|00000330| 28 24 26 29 2c 20 6c 65 | 6e 67 74 68 28 24 27 29 |($&), le|ngth($')|
|00000340| 20 6e 6f 77 20 6f 70 74 | 69 6d 69 7a 65 64 20 74 | now opt|imized t|
|00000350| 6f 20 61 76 6f 69 64 20 | 73 74 72 69 6e 67 20 63 |o avoid |string c|
|00000360| 6f 70 79 0d 20 2a 20 0d | 20 2a 20 52 65 76 69 73 |opy. * .| * Revis|
|00000370| 69 6f 6e 20 34 2e 30 20 | 20 39 31 2f 30 33 2f 32 |ion 4.0 | 91/03/2|
|00000380| 30 20 20 30 31 3a 33 39 | 3a 34 39 20 20 6c 77 61 |0  01:39|:49  lwa|
|00000390| 6c 6c 0d 20 2a 20 34 2e | 30 20 62 61 73 65 6c 69 |ll. * 4.|0 baseli|
|000003a0| 6e 65 2e 0d 20 2a 20 0d | 20 2a 2f 0d 0d 73 74 72 |ne.. * .| */..str|
|000003b0| 75 63 74 20 73 74 61 62 | 70 74 72 73 20 7b 0d 20 |uct stab|ptrs {. |
|000003c0| 20 20 20 63 68 61 72 20 | 20 20 20 20 20 20 20 73 |   char |       s|
|000003d0| 74 62 70 5f 6d 61 67 69 | 63 5b 34 5d 3b 0d 20 20 |tbp_magi|c[4];.  |
|000003e0| 20 20 53 54 52 09 09 2a | 73 74 62 70 5f 76 61 6c |  STR..*|stbp_val|
|000003f0| 3b 09 2f 2a 20 73 63 61 | 6c 61 72 20 76 61 6c 75 |;./* sca|lar valu|
|00000400| 65 20 2a 2f 0d 20 20 20 | 20 73 74 72 75 63 74 20 |e */.   | struct |
|00000410| 73 74 69 6f 20 2a 73 74 | 62 70 5f 69 6f 3b 09 2f |stio *st|bp_io;./|
|00000420| 2a 20 66 69 6c 65 68 61 | 6e 64 6c 65 20 76 61 6c |* fileha|ndle val|
|00000430| 75 65 20 2a 2f 0d 20 20 | 20 20 46 43 4d 44 09 2a |ue */.  |  FCMD.*|
|00000440| 73 74 62 70 5f 66 6f 72 | 6d 3b 09 2f 2a 20 66 6f |stbp_for|m;./* fo|
|00000450| 72 6d 61 74 20 76 61 6c | 75 65 20 2a 2f 0d 20 20 |rmat val|ue */.  |
|00000460| 20 20 41 52 52 41 59 09 | 2a 73 74 62 70 5f 61 72 |  ARRAY.|*stbp_ar|
|00000470| 72 61 79 3b 09 2f 2a 20 | 61 72 72 61 79 20 76 61 |ray;./* |array va|
|00000480| 6c 75 65 20 2a 2f 0d 20 | 20 20 20 48 41 53 48 09 |lue */. |   HASH.|
|00000490| 2a 73 74 62 70 5f 68 61 | 73 68 3b 09 2f 2a 20 61 |*stbp_ha|sh;./* a|
|000004a0| 73 73 6f 63 69 61 74 69 | 76 65 20 61 72 72 61 79 |ssociati|ve array|
|000004b0| 20 76 61 6c 75 65 20 2a | 2f 0d 20 20 20 20 53 54 | value *|/.    ST|
|000004c0| 41 42 09 2a 73 74 62 70 | 5f 73 74 61 62 3b 09 2f |AB.*stbp|_stab;./|
|000004d0| 2a 20 65 66 66 65 63 74 | 69 76 65 20 73 74 61 62 |* effect|ive stab|
|000004e0| 2c 20 69 66 20 2a 67 6c | 6f 62 20 2a 2f 0d 20 20 |, if *gl|ob */.  |
|000004f0| 20 20 53 55 42 52 09 2a | 73 74 62 70 5f 73 75 62 |  SUBR.*|stbp_sub|
|00000500| 3b 09 2f 2a 20 73 75 62 | 72 6f 75 74 69 6e 65 20 |;./* sub|routine |
|00000510| 76 61 6c 75 65 20 2a 2f | 0d 20 20 20 20 69 6e 74 |value */|.    int|
|00000520| 09 09 73 74 62 70 5f 6c | 61 73 74 65 78 70 72 3b |..stbp_l|astexpr;|
|00000530| 09 2f 2a 20 75 73 65 64 | 20 62 79 20 6e 6f 74 68 |./* used| by noth|
|00000540| 69 6e 67 5f 69 6e 5f 63 | 6f 6d 6d 6f 6e 28 29 20 |ing_in_c|ommon() |
|00000550| 2a 2f 0d 20 20 20 20 6c | 69 6e 65 5f 74 09 73 74 |*/.    l|ine_t.st|
|00000560| 62 70 5f 6c 69 6e 65 3b | 09 2f 2a 20 6c 69 6e 65 |bp_line;|./* line|
|00000570| 20 66 69 72 73 74 20 64 | 65 63 6c 61 72 65 64 20 | first d|eclared |
|00000580| 61 74 20 28 66 6f 72 20 | 2d 77 29 20 2a 2f 0d 20 |at (for |-w) */. |
|00000590| 20 20 20 63 68 61 72 09 | 73 74 62 70 5f 66 6c 61 |   char.|stbp_fla|
|000005a0| 67 73 3b 0d 7d 3b 0d 0d | 23 69 66 20 64 65 66 69 |gs;.};..|#if defi|
|000005b0| 6e 65 64 28 43 52 49 50 | 50 4c 45 44 5f 43 43 29 |ned(CRIP|PLED_CC)|
|000005c0| 20 26 26 20 28 64 65 66 | 69 6e 65 64 28 69 41 50 | && (def|ined(iAP|
|000005d0| 58 32 38 36 29 20 7c 7c | 20 64 65 66 69 6e 65 64 |X286) ||| defined|
|000005e0| 28 4d 5f 49 32 38 36 29 | 20 7c 7c 20 64 65 66 69 |(M_I286)| || defi|
|000005f0| 6e 65 64 28 49 38 30 32 | 38 36 29 29 0d 23 64 65 |ned(I802|86)).#de|
|00000600| 66 69 6e 65 20 4d 49 43 | 52 4f 50 4f 52 54 0d 23 |fine MIC|ROPORT.#|
|00000610| 65 6e 64 69 66 0d 0d 23 | 64 65 66 69 6e 65 20 73 |endif..#|define s|
|00000620| 74 61 62 5f 6d 61 67 69 | 63 28 73 74 61 62 29 09 |tab_magi|c(stab).|
|00000630| 28 28 28 53 54 42 50 2a | 29 28 73 74 61 62 2d 3e |(((STBP*|)(stab->|
|00000640| 73 74 72 5f 70 74 72 29 | 29 2d 3e 73 74 62 70 5f |str_ptr)|)->stbp_|
|00000650| 6d 61 67 69 63 29 0d 23 | 64 65 66 69 6e 65 20 73 |magic).#|define s|
|00000660| 74 61 62 5f 76 61 6c 28 | 73 74 61 62 29 09 09 28 |tab_val(|stab)..(|
|00000670| 28 28 53 54 42 50 2a 29 | 28 73 74 61 62 2d 3e 73 |((STBP*)|(stab->s|
|00000680| 74 72 5f 70 74 72 29 29 | 2d 3e 73 74 62 70 5f 76 |tr_ptr))|->stbp_v|
|00000690| 61 6c 29 0d 23 64 65 66 | 69 6e 65 20 73 74 61 62 |al).#def|ine stab|
|000006a0| 5f 69 6f 28 73 74 61 62 | 29 09 09 28 28 28 53 54 |_io(stab|)..(((ST|
|000006b0| 42 50 2a 29 28 73 74 61 | 62 2d 3e 73 74 72 5f 70 |BP*)(sta|b->str_p|
|000006c0| 74 72 29 29 2d 3e 73 74 | 62 70 5f 69 6f 29 0d 23 |tr))->st|bp_io).#|
|000006d0| 64 65 66 69 6e 65 20 73 | 74 61 62 5f 66 6f 72 6d |define s|tab_form|
|000006e0| 28 73 74 61 62 29 09 09 | 28 28 28 53 54 42 50 2a |(stab)..|(((STBP*|
|000006f0| 29 28 73 74 61 62 2d 3e | 73 74 72 5f 70 74 72 29 |)(stab->|str_ptr)|
|00000700| 29 2d 3e 73 74 62 70 5f | 66 6f 72 6d 29 0d 23 64 |)->stbp_|form).#d|
|00000710| 65 66 69 6e 65 20 73 74 | 61 62 5f 78 61 72 72 61 |efine st|ab_xarra|
|00000720| 79 28 73 74 61 62 29 09 | 28 28 28 53 54 42 50 2a |y(stab).|(((STBP*|
|00000730| 29 28 73 74 61 62 2d 3e | 73 74 72 5f 70 74 72 29 |)(stab->|str_ptr)|
|00000740| 29 2d 3e 73 74 62 70 5f | 61 72 72 61 79 29 0d 23 |)->stbp_|array).#|
|00000750| 69 66 64 65 66 09 4d 49 | 43 52 4f 50 4f 52 54 09 |ifdef.MI|CROPORT.|
|00000760| 2f 2a 20 4d 69 63 72 6f | 70 6f 72 74 20 32 2e 34 |/* Micro|port 2.4|
|00000770| 20 68 61 63 6b 20 2a 2f | 0d 41 52 52 41 59 20 2a | hack */|.ARRAY *|
|00000780| 73 74 61 62 5f 61 72 72 | 61 79 28 29 3b 0d 23 65 |stab_arr|ay();.#e|
|00000790| 6c 73 65 0d 23 64 65 66 | 69 6e 65 20 73 74 61 62 |lse.#def|ine stab|
|000007a0| 5f 61 72 72 61 79 28 73 | 74 61 62 29 09 28 28 28 |_array(s|tab).(((|
|000007b0| 53 54 42 50 2a 29 28 73 | 74 61 62 2d 3e 73 74 72 |STBP*)(s|tab->str|
|000007c0| 5f 70 74 72 29 29 2d 3e | 73 74 62 70 5f 61 72 72 |_ptr))->|stbp_arr|
|000007d0| 61 79 20 3f 20 5c 0d 09 | 09 09 09 20 28 28 53 54 |ay ? \..|... ((ST|
|000007e0| 42 50 2a 29 28 73 74 61 | 62 2d 3e 73 74 72 5f 70 |BP*)(sta|b->str_p|
|000007f0| 74 72 29 29 2d 3e 73 74 | 62 70 5f 61 72 72 61 79 |tr))->st|bp_array|
|00000800| 20 3a 20 5c 0d 09 09 09 | 09 20 28 28 53 54 42 50 | : \....|. ((STBP|
|00000810| 2a 29 28 61 61 64 64 28 | 73 74 61 62 29 2d 3e 73 |*)(aadd(|stab)->s|
|00000820| 74 72 5f 70 74 72 29 29 | 2d 3e 73 74 62 70 5f 61 |tr_ptr))|->stbp_a|
|00000830| 72 72 61 79 29 0d 23 65 | 6e 64 69 66 0d 23 64 65 |rray).#e|ndif.#de|
|00000840| 66 69 6e 65 20 73 74 61 | 62 5f 78 68 61 73 68 28 |fine sta|b_xhash(|
|00000850| 73 74 61 62 29 09 28 28 | 28 53 54 42 50 2a 29 28 |stab).((|(STBP*)(|
|00000860| 73 74 61 62 2d 3e 73 74 | 72 5f 70 74 72 29 29 2d |stab->st|r_ptr))-|
|00000870| 3e 73 74 62 70 5f 68 61 | 73 68 29 0d 23 69 66 64 |>stbp_ha|sh).#ifd|
|00000880| 65 66 09 4d 49 43 52 4f | 50 4f 52 54 09 2f 2a 20 |ef.MICRO|PORT./* |
|00000890| 4d 69 63 72 6f 70 6f 72 | 74 20 32 2e 34 20 68 61 |Micropor|t 2.4 ha|
|000008a0| 63 6b 20 2a 2f 0d 48 41 | 53 48 20 2a 73 74 61 62 |ck */.HA|SH *stab|
|000008b0| 5f 68 61 73 68 28 29 3b | 0d 23 65 6c 73 65 0d 23 |_hash();|.#else.#|
|000008c0| 64 65 66 69 6e 65 20 73 | 74 61 62 5f 68 61 73 68 |define s|tab_hash|
|000008d0| 28 73 74 61 62 29 09 09 | 28 28 28 53 54 42 50 2a |(stab)..|(((STBP*|
|000008e0| 29 28 73 74 61 62 2d 3e | 73 74 72 5f 70 74 72 29 |)(stab->|str_ptr)|
|000008f0| 29 2d 3e 73 74 62 70 5f | 68 61 73 68 20 3f 20 5c |)->stbp_|hash ? \|
|00000900| 0d 09 09 09 09 20 28 28 | 53 54 42 50 2a 29 28 73 |..... ((|STBP*)(s|
|00000910| 74 61 62 2d 3e 73 74 72 | 5f 70 74 72 29 29 2d 3e |tab->str|_ptr))->|
|00000920| 73 74 62 70 5f 68 61 73 | 68 20 3a 20 5c 0d 09 09 |stbp_has|h : \...|
|00000930| 09 09 20 28 28 53 54 42 | 50 2a 29 28 68 61 64 64 |.. ((STB|P*)(hadd|
|00000940| 28 73 74 61 62 29 2d 3e | 73 74 72 5f 70 74 72 29 |(stab)->|str_ptr)|
|00000950| 29 2d 3e 73 74 62 70 5f | 68 61 73 68 29 0d 23 65 |)->stbp_|hash).#e|
|00000960| 6e 64 69 66 09 09 09 2f | 2a 20 4d 69 63 72 6f 70 |ndif.../|* Microp|
|00000970| 6f 72 74 20 32 2e 34 20 | 68 61 63 6b 20 2a 2f 0d |ort 2.4 |hack */.|
|00000980| 23 64 65 66 69 6e 65 20 | 73 74 61 62 5f 73 75 62 |#define |stab_sub|
|00000990| 28 73 74 61 62 29 09 09 | 28 28 28 53 54 42 50 2a |(stab)..|(((STBP*|
|000009a0| 29 28 73 74 61 62 2d 3e | 73 74 72 5f 70 74 72 29 |)(stab->|str_ptr)|
|000009b0| 29 2d 3e 73 74 62 70 5f | 73 75 62 29 0d 23 64 65 |)->stbp_|sub).#de|
|000009c0| 66 69 6e 65 20 73 74 61 | 62 5f 6c 61 73 74 65 78 |fine sta|b_lastex|
|000009d0| 70 72 28 73 74 61 62 29 | 09 28 28 28 53 54 42 50 |pr(stab)|.(((STBP|
|000009e0| 2a 29 28 73 74 61 62 2d | 3e 73 74 72 5f 70 74 72 |*)(stab-|>str_ptr|
|000009f0| 29 29 2d 3e 73 74 62 70 | 5f 6c 61 73 74 65 78 70 |))->stbp|_lastexp|
|00000a00| 72 29 0d 23 64 65 66 69 | 6e 65 20 73 74 61 62 5f |r).#defi|ne stab_|
|00000a10| 6c 69 6e 65 28 73 74 61 | 62 29 09 09 28 28 28 53 |line(sta|b)..(((S|
|00000a20| 54 42 50 2a 29 28 73 74 | 61 62 2d 3e 73 74 72 5f |TBP*)(st|ab->str_|
|00000a30| 70 74 72 29 29 2d 3e 73 | 74 62 70 5f 6c 69 6e 65 |ptr))->s|tbp_line|
|00000a40| 29 0d 23 64 65 66 69 6e | 65 20 73 74 61 62 5f 66 |).#defin|e stab_f|
|00000a50| 6c 61 67 73 28 73 74 61 | 62 29 09 28 28 28 53 54 |lags(sta|b).(((ST|
|00000a60| 42 50 2a 29 28 73 74 61 | 62 2d 3e 73 74 72 5f 70 |BP*)(sta|b->str_p|
|00000a70| 74 72 29 29 2d 3e 73 74 | 62 70 5f 66 6c 61 67 73 |tr))->st|bp_flags|
|00000a80| 29 0d 0d 23 64 65 66 69 | 6e 65 20 73 74 61 62 5f |)..#defi|ne stab_|
|00000a90| 73 74 61 62 28 73 74 61 | 62 29 09 09 28 73 74 61 |stab(sta|b)..(sta|
|00000aa0| 62 2d 3e 73 74 72 5f 6d | 61 67 69 63 2d 3e 73 74 |b->str_m|agic->st|
|00000ab0| 72 5f 75 2e 73 74 72 5f | 73 74 61 62 29 0d 23 64 |r_u.str_|stab).#d|
|00000ac0| 65 66 69 6e 65 20 73 74 | 61 62 5f 65 73 74 61 62 |efine st|ab_estab|
|00000ad0| 28 73 74 61 62 29 09 28 | 28 28 53 54 42 50 2a 29 |(stab).(|((STBP*)|
|00000ae0| 28 73 74 61 62 2d 3e 73 | 74 72 5f 70 74 72 29 29 |(stab->s|tr_ptr))|
|00000af0| 2d 3e 73 74 62 70 5f 73 | 74 61 62 29 0d 0d 23 64 |->stbp_s|tab)..#d|
|00000b00| 65 66 69 6e 65 20 73 74 | 61 62 5f 6e 61 6d 65 28 |efine st|ab_name(|
|00000b10| 73 74 61 62 29 09 09 28 | 73 74 61 62 2d 3e 73 74 |stab)..(|stab->st|
|00000b20| 72 5f 6d 61 67 69 63 2d | 3e 73 74 72 5f 70 74 72 |r_magic-|>str_ptr|
|00000b30| 29 0d 23 64 65 66 69 6e | 65 20 73 74 61 62 5f 65 |).#defin|e stab_e|
|00000b40| 6e 61 6d 65 28 73 74 61 | 62 29 09 73 74 61 62 5f |name(sta|b).stab_|
|00000b50| 6e 61 6d 65 28 73 74 61 | 62 5f 65 73 74 61 62 28 |name(sta|b_estab(|
|00000b60| 73 74 61 62 29 29 0d 0d | 23 64 65 66 69 6e 65 20 |stab))..|#define |
|00000b70| 73 74 61 62 5f 73 74 61 | 73 68 28 73 74 61 62 29 |stab_sta|sh(stab)|
|00000b80| 09 28 73 74 61 62 2d 3e | 73 74 72 5f 6d 61 67 69 |.(stab->|str_magi|
|00000b90| 63 2d 3e 73 74 72 5f 75 | 2e 73 74 72 5f 73 74 61 |c->str_u|.str_sta|
|00000ba0| 73 68 29 0d 23 64 65 66 | 69 6e 65 20 73 74 61 62 |sh).#def|ine stab|
|00000bb0| 5f 65 73 74 61 73 68 28 | 73 74 61 62 29 09 73 74 |_estash(|stab).st|
|00000bc0| 61 62 5f 73 74 61 73 68 | 28 73 74 61 62 5f 65 73 |ab_stash|(stab_es|
|00000bd0| 74 61 62 28 73 74 61 62 | 29 29 0d 0d 23 64 65 66 |tab(stab|))..#def|
|00000be0| 69 6e 65 20 53 46 5f 56 | 4d 41 47 49 43 20 31 09 |ine SF_V|MAGIC 1.|
|00000bf0| 09 2f 2a 20 63 61 6c 6c | 20 72 6f 75 74 69 6e 65 |./* call| routine|
|00000c00| 20 74 6f 20 64 65 72 65 | 66 65 72 65 6e 63 65 20 | to dere|ference |
|00000c10| 53 54 52 20 76 61 6c 20 | 2a 2f 0d 23 64 65 66 69 |STR val |*/.#defi|
|00000c20| 6e 65 20 53 46 5f 4d 55 | 4c 54 49 20 32 09 09 2f |ne SF_MU|LTI 2../|
|00000c30| 2a 20 73 65 65 6e 20 6d | 6f 72 65 20 74 68 61 6e |* seen m|ore than|
|00000c40| 20 6f 6e 63 65 20 2a 2f | 0d 0d 73 74 72 75 63 74 | once */|..struct|
|00000c50| 20 73 74 69 6f 20 7b 0d | 20 20 20 20 46 49 4c 45 | stio {.|    FILE|
|00000c60| 09 2a 69 66 70 3b 09 09 | 2f 2a 20 69 66 70 20 61 |.*ifp;..|/* ifp a|
|00000c70| 6e 64 20 6f 66 70 20 61 | 72 65 20 6e 6f 72 6d 61 |nd ofp a|re norma|
|00000c80| 6c 6c 79 20 74 68 65 20 | 73 61 6d 65 20 2a 2f 0d |lly the |same */.|
|00000c90| 20 20 20 20 46 49 4c 45 | 09 2a 6f 66 70 3b 09 09 |    FILE|.*ofp;..|
|00000ca0| 2f 2a 20 62 75 74 20 73 | 6f 63 6b 65 74 73 20 6e |/* but s|ockets n|
|00000cb0| 65 65 64 20 73 65 70 61 | 72 61 74 65 20 73 74 72 |eed sepa|rate str|
|00000cc0| 65 61 6d 73 20 2a 2f 0d | 23 69 66 64 65 66 20 48 |eams */.|#ifdef H|
|00000cd0| 41 53 5f 52 45 41 44 44 | 49 52 0d 20 20 20 20 44 |AS_READD|IR.    D|
|00000ce0| 49 52 09 09 2a 64 69 72 | 70 3b 09 09 2f 2a 20 66 |IR..*dir|p;../* f|
|00000cf0| 6f 72 20 6f 70 65 6e 64 | 69 72 2c 20 72 65 61 64 |or opend|ir, read|
|00000d00| 64 69 72 2c 20 65 74 63 | 20 2a 2f 0d 23 65 6e 64 |dir, etc| */.#end|
|00000d10| 69 66 0d 20 20 20 20 6c | 6f 6e 67 09 6c 69 6e 65 |if.    l|ong.line|
|00000d20| 73 3b 09 09 2f 2a 20 24 | 2e 20 2a 2f 0d 20 20 20 |s;../* $|. */.   |
|00000d30| 20 6c 6f 6e 67 09 70 61 | 67 65 3b 09 09 2f 2a 20 | long.pa|ge;../* |
|00000d40| 24 25 20 2a 2f 0d 20 20 | 20 20 6c 6f 6e 67 09 70 |$% */.  |  long.p|
|00000d50| 61 67 65 5f 6c 65 6e 3b | 09 2f 2a 20 24 3d 20 2a |age_len;|./* $= *|
|00000d60| 2f 0d 20 20 20 20 6c 6f | 6e 67 09 6c 69 6e 65 73 |/.    lo|ng.lines|
|00000d70| 5f 6c 65 66 74 3b 09 2f | 2a 20 24 2d 20 2a 2f 0d |_left;./|* $- */.|
|00000d80| 20 20 20 20 63 68 61 72 | 09 2a 74 6f 70 5f 6e 61 |    char|.*top_na|
|00000d90| 6d 65 3b 09 2f 2a 20 24 | 5e 20 2a 2f 0d 20 20 20 |me;./* $|^ */.   |
|00000da0| 20 53 54 41 42 09 2a 74 | 6f 70 5f 73 74 61 62 3b | STAB.*t|op_stab;|
|00000db0| 09 2f 2a 20 24 5e 20 2a | 2f 0d 20 20 20 20 63 68 |./* $^ *|/.    ch|
|00000dc0| 61 72 09 2a 66 6d 74 5f | 6e 61 6d 65 3b 09 2f 2a |ar.*fmt_|name;./*|
|00000dd0| 20 24 7e 20 2a 2f 0d 20 | 20 20 20 53 54 41 42 09 | $~ */. |   STAB.|
|00000de0| 2a 66 6d 74 5f 73 74 61 | 62 3b 09 2f 2a 20 24 7e |*fmt_sta|b;./* $~|
|00000df0| 20 2a 2f 0d 20 20 20 20 | 73 68 6f 72 74 09 73 75 | */.    |short.su|
|00000e00| 62 70 72 6f 63 65 73 73 | 3b 09 2f 2a 20 2d 7c 20 |bprocess|;./* -| |
|00000e10| 6f 72 20 7c 2d 20 2a 2f | 0d 20 20 20 20 63 68 61 |or |- */|.    cha|
|00000e20| 72 09 74 79 70 65 3b 0d | 20 20 20 20 63 68 61 72 |r.type;.|    char|
|00000e30| 09 66 6c 61 67 73 3b 0d | 7d 3b 0d 0d 23 64 65 66 |.flags;.|};..#def|
|00000e40| 69 6e 65 20 49 4f 46 5f | 41 52 47 56 20 31 09 2f |ine IOF_|ARGV 1./|
|00000e50| 2a 20 74 68 69 73 20 66 | 70 20 69 74 65 72 61 74 |* this f|p iterat|
|00000e60| 65 73 20 6f 76 65 72 20 | 41 52 47 56 20 2a 2f 0d |es over |ARGV */.|
|00000e70| 23 64 65 66 69 6e 65 20 | 49 4f 46 5f 53 54 41 52 |#define |IOF_STAR|
|00000e80| 54 20 32 09 2f 2a 20 63 | 68 65 63 6b 20 66 6f 72 |T 2./* c|heck for|
|00000e90| 20 6e 75 6c 6c 20 41 52 | 47 56 20 61 6e 64 20 73 | null AR|GV and s|
|00000ea0| 75 62 73 74 69 74 75 74 | 65 20 27 2d 27 20 2a 2f |ubstitut|e '-' */|
|00000eb0| 0d 23 64 65 66 69 6e 65 | 20 49 4f 46 5f 46 4c 55 |.#define| IOF_FLU|
|00000ec0| 53 48 20 34 09 2f 2a 20 | 74 68 69 73 20 66 70 20 |SH 4./* |this fp |
|00000ed0| 77 61 6e 74 73 20 61 20 | 66 6c 75 73 68 20 61 66 |wants a |flush af|
|00000ee0| 74 65 72 20 77 72 69 74 | 65 20 6f 70 20 2a 2f 0d |ter writ|e op */.|
|00000ef0| 0d 73 74 72 75 63 74 20 | 73 75 62 20 7b 0d 20 20 |.struct |sub {.  |
|00000f00| 20 20 43 4d 44 09 09 2a | 63 6d 64 3b 0d 20 20 20 |  CMD..*|cmd;.   |
|00000f10| 20 69 6e 74 09 09 28 2a | 75 73 65 72 73 75 62 29 | int..(*|usersub)|
|00000f20| 28 29 3b 0d 20 20 20 20 | 69 6e 74 09 09 75 73 65 |();.    |int..use|
|00000f30| 72 69 6e 64 65 78 3b 0d | 20 20 20 20 53 54 41 42 |rindex;.|    STAB|
|00000f40| 09 2a 66 69 6c 65 73 74 | 61 62 3b 0d 20 20 20 20 |.*filest|ab;.    |
|00000f50| 6c 6f 6e 67 09 64 65 70 | 74 68 3b 09 2f 2a 20 3e |long.dep|th;./* >|
|00000f60| 3d 20 32 20 69 6e 64 69 | 63 61 74 65 73 20 72 65 |= 2 indi|cates re|
|00000f70| 63 75 72 73 69 76 65 20 | 63 61 6c 6c 20 2a 2f 0d |cursive |call */.|
|00000f80| 20 20 20 20 41 52 52 41 | 59 09 2a 74 6f 73 61 76 |    ARRA|Y.*tosav|
|00000f90| 65 3b 0d 7d 3b 0d 0d 23 | 64 65 66 69 6e 65 20 4e |e;.};..#|define N|
|00000fa0| 75 6c 6c 73 74 61 62 20 | 4e 75 6c 6c 28 53 54 41 |ullstab |Null(STA|
|00000fb0| 42 2a 29 0d 0d 53 54 52 | 4c 45 4e 20 73 74 61 62 |B*)..STR|LEN stab|
|00000fc0| 5f 6c 65 6e 28 29 3b 0d | 0d 23 64 65 66 69 6e 65 |_len();.|.#define|
|00000fd0| 20 53 54 41 42 5f 53 54 | 52 28 73 29 20 28 74 6d | STAB_ST|R(s) (tm|
|00000fe0| 70 73 74 61 62 20 3d 20 | 28 73 29 2c 20 73 74 61 |pstab = |(s), sta|
|00000ff0| 62 5f 66 6c 61 67 73 28 | 74 6d 70 73 74 61 62 29 |b_flags(|tmpstab)|
|00001000| 20 26 20 53 46 5f 56 4d | 41 47 49 43 20 3f 20 73 | & SF_VM|AGIC ? s|
|00001010| 74 61 62 5f 73 74 72 28 | 73 74 61 62 5f 76 61 6c |tab_str(|stab_val|
|00001020| 28 74 6d 70 73 74 61 62 | 29 2d 3e 73 74 72 5f 6d |(tmpstab|)->str_m|
|00001030| 61 67 69 63 29 20 3a 20 | 73 74 61 62 5f 76 61 6c |agic) : |stab_val|
|00001040| 28 74 6d 70 73 74 61 62 | 29 29 0d 23 64 65 66 69 |(tmpstab|)).#defi|
|00001050| 6e 65 20 53 54 41 42 5f | 4c 45 4e 28 73 29 20 28 |ne STAB_|LEN(s) (|
|00001060| 74 6d 70 73 74 61 62 20 | 3d 20 28 73 29 2c 20 73 |tmpstab |= (s), s|
|00001070| 74 61 62 5f 66 6c 61 67 | 73 28 74 6d 70 73 74 61 |tab_flag|s(tmpsta|
|00001080| 62 29 20 26 20 53 46 5f | 56 4d 41 47 49 43 20 3f |b) & SF_|VMAGIC ?|
|00001090| 20 73 74 61 62 5f 6c 65 | 6e 28 73 74 61 62 5f 76 | stab_le|n(stab_v|
|000010a0| 61 6c 28 74 6d 70 73 74 | 61 62 29 2d 3e 73 74 72 |al(tmpst|ab)->str|
|000010b0| 5f 6d 61 67 69 63 29 20 | 3a 20 73 74 72 5f 6c 65 |_magic) |: str_le|
|000010c0| 6e 28 73 74 61 62 5f 76 | 61 6c 28 74 6d 70 73 74 |n(stab_v|al(tmpst|
|000010d0| 61 62 29 29 29 0d 23 64 | 65 66 69 6e 65 20 53 54 |ab))).#d|efine ST|
|000010e0| 41 42 5f 47 45 54 28 73 | 29 20 28 74 6d 70 73 74 |AB_GET(s|) (tmpst|
|000010f0| 61 62 20 3d 20 28 73 29 | 2c 20 73 74 72 5f 67 65 |ab = (s)|, str_ge|
|00001100| 74 28 73 74 61 62 5f 66 | 6c 61 67 73 28 74 6d 70 |t(stab_f|lags(tmp|
|00001110| 73 74 61 62 29 20 26 20 | 53 46 5f 56 4d 41 47 49 |stab) & |SF_VMAGI|
|00001120| 43 20 3f 20 73 74 61 62 | 5f 73 74 72 28 74 6d 70 |C ? stab|_str(tmp|
|00001130| 73 74 61 62 2d 3e 73 74 | 72 5f 6d 61 67 69 63 29 |stab->st|r_magic)|
|00001140| 20 3a 20 73 74 61 62 5f | 76 61 6c 28 74 6d 70 73 | : stab_|val(tmps|
|00001150| 74 61 62 29 29 29 0d 23 | 64 65 66 69 6e 65 20 53 |tab))).#|define S|
|00001160| 54 41 42 5f 47 4e 55 4d | 28 73 29 20 28 74 6d 70 |TAB_GNUM|(s) (tmp|
|00001170| 73 74 61 62 20 3d 20 28 | 73 29 2c 20 73 74 72 5f |stab = (|s), str_|
|00001180| 67 6e 75 6d 28 73 74 61 | 62 5f 66 6c 61 67 73 28 |gnum(sta|b_flags(|
|00001190| 74 6d 70 73 74 61 62 29 | 20 26 20 53 46 5f 56 4d |tmpstab)| & SF_VM|
|000011a0| 41 47 49 43 20 3f 20 73 | 74 61 62 5f 73 74 72 28 |AGIC ? s|tab_str(|
|000011b0| 74 6d 70 73 74 61 62 2d | 3e 73 74 72 5f 6d 61 67 |tmpstab-|>str_mag|
|000011c0| 69 63 29 20 3a 20 73 74 | 61 62 5f 76 61 6c 28 74 |ic) : st|ab_val(t|
|000011d0| 6d 70 73 74 61 62 29 29 | 29 0d 0d 45 58 54 20 53 |mpstab))|)..EXT S|
|000011e0| 54 41 42 20 2a 74 6d 70 | 73 74 61 62 3b 0d 0d 45 |TAB *tmp|stab;..E|
|000011f0| 58 54 20 53 54 41 42 20 | 2a 73 74 61 62 5f 69 6e |XT STAB |*stab_in|
|00001200| 64 65 78 5b 31 32 38 5d | 3b 0d 0d 45 58 54 20 75 |dex[128]|;..EXT u|
|00001210| 6e 73 69 67 6e 65 64 20 | 73 68 6f 72 74 20 73 74 |nsigned |short st|
|00001220| 61 74 75 73 76 61 6c 75 | 65 3b 0d 0d 45 58 54 20 |atusvalu|e;..EXT |
|00001230| 69 6e 74 20 64 65 6c 61 | 79 6d 61 67 69 63 20 49 |int dela|ymagic I|
|00001240| 4e 49 54 28 30 29 3b 0d | 23 64 65 66 69 6e 65 20 |NIT(0);.|#define |
|00001250| 44 4d 5f 55 49 44 20 20 | 20 30 78 30 30 33 0d 23 |DM_UID  | 0x003.#|
|00001260| 64 65 66 69 6e 65 20 44 | 4d 5f 52 55 49 44 20 20 |define D|M_RUID  |
|00001270| 20 30 78 30 30 31 0d 23 | 64 65 66 69 6e 65 20 44 | 0x001.#|define D|
|00001280| 4d 5f 45 55 49 44 20 20 | 20 30 78 30 30 32 0d 23 |M_EUID  | 0x002.#|
|00001290| 64 65 66 69 6e 65 20 44 | 4d 5f 47 49 44 20 20 20 |define D|M_GID   |
|000012a0| 30 78 30 33 30 0d 23 64 | 65 66 69 6e 65 20 44 4d |0x030.#d|efine DM|
|000012b0| 5f 52 47 49 44 20 20 20 | 30 78 30 31 30 0d 23 64 |_RGID   |0x010.#d|
|000012c0| 65 66 69 6e 65 20 44 4d | 5f 45 47 49 44 20 20 20 |efine DM|_EGID   |
|000012d0| 30 78 30 32 30 0d 23 64 | 65 66 69 6e 65 20 44 4d |0x020.#d|efine DM|
|000012e0| 5f 44 45 4c 41 59 20 30 | 78 31 30 30 0d 0d 53 54 |_DELAY 0|x100..ST|
|000012f0| 41 42 20 2a 61 61 64 64 | 28 29 3b 0d 53 54 41 42 |AB *aadd|();.STAB|
|00001300| 20 2a 68 61 64 64 28 29 | 3b 0d 53 54 41 42 20 2a | *hadd()|;.STAB *|
|00001310| 66 73 74 61 62 28 29 3b | 0d 76 6f 69 64 20 73 74 |fstab();|.void st|
|00001320| 61 62 73 65 74 28 29 3b | 0d 76 6f 69 64 20 73 74 |abset();|.void st|
|00001330| 61 62 5f 66 75 6c 6c 6e | 61 6d 65 28 29 3b 0d 76 |ab_fulln|ame();.v|
|00001340| 6f 69 64 20 73 74 61 62 | 5f 65 66 75 6c 6c 6e 61 |oid stab|_efullna|
|00001350| 6d 65 28 29 3b 0d 76 6f | 69 64 20 73 74 61 62 5f |me();.vo|id stab_|
|00001360| 63 68 65 63 6b 28 29 3b | 0d 00 00 00 00 00 00 00 |check();|........|
|00001370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001380| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00001390| 6f 6d 70 61 72 69 73 6f | 6e 0d 09 2d 6d 65 72 67 |ompariso|n..-merg|
|000013a0| 65 09 09 09 09 09 23 20 | 6d 65 72 67 65 20 70 72 |e.....# |merge pr|
|000013b0| 06 73 74 61 62 2e 68 da | 02 00 00 00 54 45 58 54 |.stab.h.|....TEXT|
|000013c0| 4d 50 53 20 00 00 02 a4 | 00 c0 00 00 00 00 74 ff |MPS ....|......t.|
|000013d0| 00 00 54 45 58 54 4d 50 | 53 20 00 00 02 a4 00 c0 |..TEXTMP|S ......|
|000013e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013f0| 00 00 a6 ea b4 85 00 00 | 12 e9 00 00 01 ac 63 65 |........|......ce|
|00001400| 0d 09 2d 70 09 09 09 09 | 09 09 23 20 70 72 69 6e |..-p....|..# prin|
|00001410| 74 20 76 65 72 73 69 6f | 6e 20 61 6e 64 20 70 72 |t versio|n and pr|
|00001420| 6f 67 72 65 73 73 20 69 | 6e 66 6f 72 6d 61 74 69 |ogress i|nformati|
|00001430| 6f 6e 0d 09 2d 71 75 6f | 74 65 09 09 09 09 09 23 |on..-quo|te.....#|
|00001440| 20 68 61 6e 64 6c 65 20 | 66 69 65 6c 64 73 20 77 | handle |fields w|
|00001450| 69 74 68 20 71 75 6f 74 | 65 73 0d 09 2d 73 74 64 |ith quot|es..-std|
|00001460| 69 6e 09 09 09 09 09 23 | 20 70 6c 61 63 65 2d 68 |in.....#| place-h|
|00001470| 6f 6c 64 65 72 20 66 6f | 72 20 73 74 61 6e 64 61 |older fo|r standa|
|00001480| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 30 36 2f |...H..Mo|naco.06/|
|00001490| 30 38 20 31 35 3a 33 33 | 3a 34 34 20 24 0d 20 2a |08 15:33|:44 $. *|
|000014a0| 0d 20 2a 20 20 20 00 06 | 00 03 00 5e 00 84 01 eb |. *   ..|...^....|
|000014b0| 02 a1 00 50 00 20 01 dd | 02 3d a6 ea ce af 00 00 |...P. ..|.=......|
|000014c0| 06 1c 00 00 06 23 00 00 | 01 d7 01 00 00 00 00 1e |.....#..|........|
|000014d0| 00 5e 00 84 01 eb 02 a1 | 00 50 00 20 01 dd 02 3d |.^......|.P. ...=|
|000014e0| 00 00 01 d7 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014f0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 01 90 |.....n..|.n...>..|
|00001500| 26 b8 08 16 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |&.......|.>..MPSR|
|00001510| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00001520| 03 f0 ff ff 00 00 00 4c | 01 96 59 90 00 00 00 00 |.......L|..Y.....|
|00001530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+